home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / QT.LSP < prev    next >
Text File  |  1992-09-13  |  651b  |  28 lines
  1. ;Quick change of text
  2. ;
  3. ;
  4. (defun c:qt()
  5. (setq ss (ssget))
  6. (initget (+ 1 2 4))
  7. (setq s (getstring "Enter new text: "))
  8. (setq counter 0)
  9. (prompt "Changing text...")
  10. (while
  11. (setq e (ssname ss counter))
  12. (setq etype (cdr (assoc 0 (entget e))))
  13. (IF (= etype "TEXT")
  14. (progn
  15. (setq entity (entget e))
  16. (setq old (assoc 1 entity))
  17. (setq new (cons (car old) s))
  18. (setq newentity (subst new old entity))
  19. (entmod newentity)))
  20. (IF (= etype "ATTDEF")
  21. (progn
  22. (setq entity (entget e))
  23. (setq old (assoc 7 entity))
  24. (setq new (cons (car old) s))
  25. (setq newentity (subst new old entity))
  26. (entmod newentity)))
  27. (setq counter (+ counter 1))
  28. (princ)))